Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/nekodemo/rtrv/shared.dir/00340.ls

Text File | 1995-05-10 | 3.7 KB | 162 lines

on startMovie
  global gcurrentnumber, gphotonumber, gblenddraw, gblendchar, gextension
  set gextension to ".mod"
  set gblenddraw to 12
  set gblendchar to 23
  initauthor()
end

on initauthor
  global gphotonumber, gactionlist, gpleasespeak, gauthor, gallbio
  set gpleasespeak to EMPTY
  set gphotonumber to 1
end

on outcursor
  set the cursor of sprite 40 to -1
  set the cursor of sprite 41 to -1
  set the cursor of sprite 42 to -1
  set the cursor of sprite 43 to -1
  set the cursor of sprite 13 to -1
  set the cursor of sprite 14 to -1
  set the cursor of sprite 15 to -1
  set the cursor of sprite 16 to -1
end

on outpanel
  hidefloat()
  outcursor()
  killpuppet(2)
  killpuppet(15)
  killpuppet(16)
  killpuppet(17)
  killpuppet(18)
  killpuppet(19)
  killpuppet(20)
end

on initbio
  makepuppet(2)
  makepuppet(20)
  makepuppet(21)
end

on outbio
  killpuppet(2)
  killpuppet(20)
  killpuppet(21)
end

on waitticks aticks
  set theendtime to ticks() + aticks
  repeat while ticks() < theendtime
    nothing()
  end repeat
end

on makepuppet puppetchannel, thecast, theblend, h, v, theink
  puppetSprite(puppetchannel, 1)
  if not voidp(theblend) then
    set the blend of sprite puppetchannel to theblend
  else
    set the blend of sprite puppetchannel to 100
  end if
  if not voidp(h) then
    set the locH of sprite puppetchannel to h
  end if
  if not voidp(v) then
    set the locV of sprite puppetchannel to v
  end if
  if not voidp(thecast) then
    if stringp(thecast) then
      set thecast to the number of cast thecast
    end if
    set the castNum of sprite puppetchannel to thecast
  end if
  if not voidp(theink) then
    set the ink of sprite puppetchannel to theink
  else
    set the ink of sprite puppetchannel to 36
  end if
  set the stretch of sprite puppetchannel to 0
  set the type of sprite puppetchannel to 1
  set the visible of sprite puppetchannel to 1
end

on killpuppet ch
  puppetSprite(ch, 0)
end

on fltdown aUp, aDown
  global galreadyshownbutton
  repeat while stillDown()
    if rollOver(clickOn()) then
      if galreadyshownbutton then
        set galreadyshownbutton to 0
        showfloat()
      end if
      next repeat
    end if
    set galreadyshownbutton to 1
    hidefloat()
  end repeat
end

on hidefloat
  global galreadyshownbutton
  set the visible of sprite 45 to 0
  set the visible of sprite 46 to 0
  set the visible of sprite 47 to 0
  set galreadyshownbutton to 1
  updateStage()
end

on showfloat thenum
  global gblend.45, gblend.46, gblend.47
  if (the mouseH < 590) and (the mouseH > 50) then
    makepuppet(45, "45CLOSE.mod", gblend.45)
    makepuppet(46, "46CLOSE.mod", gblend.46)
    if gblend.47 = 0 then
      makepuppet(47, "DUMMY", gblend.47)
    else
      makepuppet(47, "47CLOSE.mod", gblend.47)
    end if
    set a to the mouseH
    set b to the mouseV
    set the locH of sprite 45 to a - 30
    set the locV of sprite 45 to b - 20
    set the locH of sprite 46 to a + 30
    set the locV of sprite 46 to b - 20
    set the locH of sprite 47 to a
    set the locV of sprite 47 to b + 50
    set the visible of sprite 45 to 1
    set the visible of sprite 46 to 1
    set the visible of sprite 47 to 1
    updateStage()
  end if
end

on btnDown aUp, aDown
  repeat while stillDown()
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of cast aDown
    else
      set the castNum of sprite clickOn() to the number of cast aUp
    end if
    updateStage()
  end repeat
end

on btnUp aUp, cmd
  set the castNum of sprite clickOn() to the number of cast aUp
  updateStage()
  if rollOver(clickOn()) and not soundBusy(2) and not soundBusy(3) then
    sound playFile 4, "POYO"
    do(cmd)
    return 1
  else
    beep(1)
    return 0
  end if
end